/* GUI CONVERTED from rqjiq.p (converter v1.75) Sat Aug 12 23:12:29 2000 */
/* rqjiq.p - REQUISITION JOB INQUIRY                                        */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/*F0PN*/ /*V8:ConvertMode=Report                                            */
/*K1PJ*/ /*                                                                 */
/* REVISION 8.5       LAST MODIFIED: 04/15/97  BY: *J1Q2* Patrick Rowan     */
/* REVISION 8.6       LAST MODIFIED: 05/06/98  BY: *K1PJ* A. Shobha         */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KP* myb                */


          /* DISPLAY TITLE */

/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

          {mfdtitle.i "b+ "}

          
/*GUI preprocessor Frame A define */
&SCOPED-DEFINE PP_FRAME_NAME A

FORM /*GUI*/ 
             
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
space(1)
             rqj_job
             rqj_desc
          with frame a side-labels width 80 attr-space NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-a-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame a = F-a-title.
 RECT-FRAME-LABEL:HIDDEN in frame a = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame a =
  FRAME a:HEIGHT-PIXELS - RECT-FRAME:Y in frame a - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME a = FRAME a:WIDTH-CHARS - .5.  /*GUI*/

/*GUI preprocessor Frame A undefine */
&UNDEFINE PP_FRAME_NAME



          /* SET EXTERNAL LABELS */
          setFrameLabels(frame a:handle).
/*K1PJ*/ {wbrp01.i}

          repeat:
/*K1PJ*/  if c-application-mode <> 'WEB' then
             prompt-for rqj_job with frame a editing:

                if frame-field = "rqj_job" then do:

               /* FIND NEXT/PREVIOUS RECORD */
               {mfnp.i rqj_mstr
            rqj_job
            rqj_job
            rqj_job
            rqj_job
            rqj_job}

                   if recno <> ? then
            display rqj_job rqj_desc with frame a.
               recno = ?.
                end.
                else do:
                   status input.
               readkey.
               apply lastkey.
                end.
             end.
/*K1PJ*/ {wbrp06.i &command = prompt-for &fields = "rqj_job" &frm = "a"}

/*K1PJ*/ if c-application-mode <> 'WEB' or
/*K1PJ*/ (c-application-mode = 'WEB' and
/*K1PJ*/  c-web-request begins 'DATA') then do:
             find rqj_mstr
        where rqj_job = input rqj_job no-lock no-error.
             if available rqj_mstr then
        display rqj_desc with frame a.
             else
        display "" @ rqj_desc with frame a.

             status input.

             hide frame b.
/*K1PJ*/  end.

             /* SELECT PRINTER */
             {mfselprt.i "terminal" 80}
/*GUI*/ RECT-FRAME:HEIGHT-PIXELS in frame a = FRAME a:HEIGHT-PIXELS - RECT-FRAME:Y in frame a - 2.


             for each rqj_mstr where rqj_job >= input rqj_job
             no-lock with frame b width 80 no-attr-space down:

            /* SET EXTERNAL LABELS */
            setFrameLabels(frame b:handle).
            
/*GUI*/ {mfguichk.i } /*Replace mfrpchk*/


                display
           rqj_job
           rqj_desc
           rqj_start
           rqj_end WITH STREAM-IO /*GUI*/ .

             end.
             {mfreset.i}
/*GUI*/ {mfgrptrm.i} /*Report-to-Window*/

             {mfmsg.i 8 1}
          end.

/*K1PJ*/ {wbrp04.i &frame-spec = a}
